home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir24 / frenchgp.zip / BYR31.ZIP / MBYRM < prev    next >
Text File  |  1994-08-14  |  745b  |  50 lines
  1.   OPEN BYR.LST
  2.   IF ERROR GOTO ERREUR1
  3. DEB:
  4.  CALL MCONNECT.INC
  5.   SEND "D^M"
  6.  CALL MWAITD.INC
  7.   IF ERROR GOTO ERREUR2
  8. BOUCLE:
  9.   DELBEGIN
  10.   READLINE
  11.   IF ERROR GOTO FIN
  12.  BOUCLE1:
  13.   ECHO "Récupération du fichier ^$^M"
  14.   SEND "YGET ^$^M"
  15.   WAIT 60 FOR TX
  16.   IF ERROR GOTO ERREUR3
  17.  BOUCLE2:
  18.   IF NOT CONNECTED GOTO ERREUR3
  19.   WAIT 5 FOR NOT TX
  20.   IF ERROR GOTO BOUCLE2
  21.  CALL MWAITD.INC
  22.   IF ERROR GOTO ERREUR3
  23.   GOTO BOUCLE
  24. FIN:
  25.   CLOSE
  26.  CALL MDISC.INC
  27.   WAIT 1
  28.   BEEP
  29.   STOP
  30.  
  31.  
  32. ERREUR1:
  33.   ECHO "Fichier BYR.LST non trouvé"
  34.   STOP
  35.  
  36. ERREUR2:
  37.  CALL MDISC1.INC
  38.   WAIT 30
  39.   GOTO DEB
  40.  
  41. ERREUR3:
  42.  CALL MDISC1.INC
  43.   WAIT 30
  44.  CALL MCONNECT.INC
  45.   SEND "D^M"
  46.  CALL MWAITD.INC
  47.   IF ERROR GOTO ERREUR3
  48.   GOTO BOUCLE1
  49.  
  50.